********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Hitung_Rata;
Uses CRT;
Var
k: Integer;
x, N, jumlah: integer;
rata2: real;
Begin
Clrscr;
Writeln ('Masukan banyaknya data:'); Readln(N);
Writeln;
{masukan data}
writeln ('masukan data');
jumlah:= 0;
FOR k:= 1 to N do begin
Write ('Data x'); readln(x);
jumlah:= (jumlah + x);
end;

rata2:= jumlah / N;
Writeln ('nilai rata-rata =',rata2:0:2);
readln;
end.